1 IFPEEK(52009)<>56THENLOAD"ML",8,1 2 IFPEEK(56)=40THEN64 3 POKE56334,0:POKE1,51:POKE251,0:POKE252,208:POKE253,0:POKE254,56:POKE53202,0 4 POKE53203,8:SYS53160:POKE1,55:POKE56334,1:SYS52000:POKE737,1:POKE53281,11 5 POKE650,255:PRINT"[147]":POKE736,1:GOTO64 10 GETA$:IFA$=""THEN10 11 RETURN 16 POKE52405,4:POKE52444,86:SYS52000:POKE737,1:Y=53280 18 PRINT""SPC(8)"PICK(2-8) "S$:GOSUB10 20 V=VAL(A$):IFV>1ANDV<9THENA=(17675+(3325*(V-2))):POKEY,7:POKE53269,1:GOTO22 21 GOTO64 22 Z=A:POKE737,1:POKE710,166:POKE712,138:POKE764,4:POKE2040,156+(4*V):POKE735,1 26 POKEY+7,V:GOSUB46:IFFBTHEN26 28 POKEY,10:FORD=1TO250:NEXT 30 GETI$:POKEY,10:V=VAL(I$):GOSUB46:IFFB=0THENPOKEA,0:GOTO16 32 IFVANDV<5THENPOKE752,V 34 IFPEEK(197)<>64THENPOKEY,7:GOTO34 36 JS=PEEK(56320)AND15:IFJS=15THEN30 38 K=PEEK(710):IFK=0THENK=1 40 POKEA,K:POKEA+1,PEEK(711):POKEA+2,PEEK(712):A=A+3 42 IFA>Z+3321THENPOKEA,0:GOTO16 44 GOTO36 46 FB=PEEK(56320)AND16:RETURN 64 CLR:RESTORE:POKE53269,0:POKE53281,11:GOSUB102 65 PRINT"[147]ANIMATION MAKER":PRINT"F1[146] BACKGROUND 70 [153]"F2WAIT SAVE FILE":[153]"F3WAIT MOVEMENT":[151]52405,24:[151]52444,64 72 [153]"F4WAIT CHAR-SET":S$[178]"RETURN=MENUWAIT":[153]"F5WAIT SPRITES 74 PRINT"F6[146] LOAD FILE":PRINT"F7[146] DEMO MODE":GOSUB325:POKE53280,12:GOSUB600 85 GOSUB10:V=ASC(A$):IFV>132THENONV-132GOTO800,16,182,136,106,348,106 86 GOTO85 102 POKE53272,21:RETURN 106 POKE56333,127:POKE788,49:POKE789,234:POKE56333,129 120 ZX$="SAVE":ZX=1:Z=0:IFA$="[139]"THENZX$="LOAD":ZX=0:Z=10 121 PRINT""ZX$;:N$="":INPUT"-NAME";N$:IFN$=""THEN64 122 POKE250,0:POKE251,40:POKE252,0:POKE253,160:OPEN1,8,ZX,"0:"+N$:SYS53125+Z 123 CLOSE1:OPEN15,8,15:INPUT#15,A$,A$:CLOSE15:IFA$="OK"THEN64 124 PRINT""A$:FORD=0TO999:NEXT:GOTO64 136 SYS52000:POKE737,1:FORX=2TO9:POKE740+X,1:NEXT:POKE710,170 138 POKE712,228:GOSUB10:GOTO64 182 SYS52000:GOSUB102:POKE734,0:GOSUB334:GOSUB326:DIMT(64):POKE841,8:POKE842,7 184 POKE53270,200:GOSUB998:GOTO312 194 GOSUB217:GOSUB10 197 V=ASC(A$):H=Q4+64*SP:IFV=95THEN312 198 IFV=136THEN306 199 IFV=13THEN64 202 IFV>132ANDV<141ANDE6THEN216 203 IFV<49ORV>56THEN194 204 GOSUB998:SP=V-49:E6=1:GOSUB999 206 XX=1:POKE840,PEEK(53287+SP):PRINT"";:H=Q4+64*SP 207 H%=H/256:L%=H-H%*256:POKE251,L%:POKE252,H%:SYS51750:GOTO250 216 ONV-132GOTO250,232,234,306,230,220,238,194 217 PRINT"[146]"SPC(185)"PICK(1-8)OR(_)[146] "SPC(65)"SET"SE;O$:RETURN 220 PRINT""SPC(185)" COPY WHICH? [146] "SPC(65)" PICK (1-8) ":GOSUB10 228 A=VAL(A$):IFATHEND=Q4+64*(A-1):FORR=0TO63:POKEH+R,PEEK(D+R):NEXT:GOTO206 229 GOTO194 230 FORR=HTOH+63:POKER,0:NEXT:GOTO206 232 FORR=HTOH+63:POKER,255-PEEK(R):NEXT:GOTO206 234 FORR=HTOH+62:T(R-H)=PEEK(R):NEXT:FORR=HTOH+60STEP3 236 FORL=0TO2:POKER+L,T((60+L)-(R-H)):NEXT:NEXT:GOTO206 238 FORR=HTOH+62:T(R-H)=PEEK(R):NEXT 240 FORR=HTOH+60STEP3:POKER,T(R+2-H):POKER+2,T(R-H):NEXT 242 FORU=HTOH+63:POKE828,PEEK(U):SYS51894:POKEU,PEEK(829):NEXT:GOTO206 250 GOSUB217:PRINT""SPC(185)Y$:L=1184:M=(Q4+(SP*64)):E=7:F=C:B=0 254 CV=PEEK(L+54272):GOSUB700:IFA$=""THEN276 260 IFA$="[145]"THEN280 261 IFA$="[157]"THEN284 262 IFA$=""THEN292 264 IFA$="1"THENW=0:CV=0:GOTO304 266 IFA$="2"THENW=E2(E):CV=8:GOTO304 268 IFA$="3"THENW=E3(E):CV=PEEK(53287+SP):GOTO304 270 IFA$="4"THENW=E4(E):CV=7:GOTO304 272 IFA$="[133]"THENGOSUB300:GOTO194 274 GOSUB300:GOTO197 276 IFF=>C+60THEN254 278 U=3:A=40:GOTO302 280 IFF<=C+2THEN254 282 U=-3:A=-40:GOTO302 284 IFE=7ANDB=0THEN254 286 A=-2:IFE<7THENE=E+2:U=0:GOTO302 288 E=1:B=B-1:U=-1:GOTO302 292 IFE=1ANDB=2THEN254 294 A=2:IFE>1THENE=E-2:U=0:GOTO302 296 E=7:B=B+1:U=1:GOTO302 300 POKEL,160:POKEL+1,160:POKEL+54272,CV:POKEL+54273,CV:RETURN 302 F=F+U:M=M+U:L=L+A:GOTO254 304 GOSUB300:POKEM,(PEEK(M)AND(255-(2^E+2^(E-1))))ORW:GOTO254 306 E6=0:GOSUB328:GOSUB325:POKE749,1:GOSUB10:POKE749,0:GOTO314 312 E6=0:IFXXTHENGOSUB328 313 SE=SE+1:IFSE=5THENSE=1 314 E=160+(8*(SE-1)):FORD=0TO7:POKE2040+D,E+D:NEXT:Q4=10240+(512*(SE-1)) 316 IFSE=1THENO$="(01-08)":E=1:F=2 318 IFSE=2THENO$="(09-16)":E=3:F=4 320 IFSE=3THENO$="(17-24)":E=5:F=6 322 IFSE=4THENO$="(25-32)":E=7:F=8 323 FORD=0TO3:POKE53287+D,E:NEXT:FORD=0TO3:POKE53291+D,F:NEXT:GOTO194 325 FORD=1TO8:POKE53286+D,D:NEXT:RETURN 326 POKE53264,192:FORR=0TO10STEP2:POKER+53248,32+R*20:NEXT 327 POKE53260,16:POKE53262,56:FORR=0TO14STEP2:POKER+53249,53:NEXT:RETURN 328 XX=0:PRINT"";:POKE251,132:POKE252,3:SYS51750:GOSUB998:RETURN 334 DATAEDIT-ENTRY,CLEAR,REVERSE,COPY,FLIP^,FLIP_,ANIMATE 336 PRINT"[147]"SPC(240):FORD=1TO7:READA$:PRINTSPC(65)"F"D"[146]"A$:NEXT 338 PRINTSPC(65)S$;:RETURN 348 O=14336:PRINT"[147]":FORD=0TO7:PRINT"[179] [171]":NEXT:SYS52000 364 POKE53269,0:GOSUB416:PRINT" [221]USE+-OR F1 F3 TO JUMP[221]F5 REV[221]F7 CLR" 365 GETA$:IFPEEK(197)=40ANDC<127THENC=C+1 366 IFPEEK(197)=43ANDCTHENC=C-1 369 POKE1479,C:POKE1466,C+128:PRINT" [157][157][157][157]"C 370 FORD=1TO99:IFPEEK(197)=64THENNEXT:POKE55751,11:POKE55738,1:GOTO374 371 GOTO365 374 POKE840,7:POKE841,4:POKE842,3:PRINT"";:FORR=0TO7 378 POKE828,PEEK(R+(O+8*C)):SYS51797:PRINTSPC(32);:NEXT:PRINT"[157][157][157]"Y$SPC(7)S$; 380 L=1349:S=(O+(8*C)):E=7:F=C 381 CV=PEEK(L+54272) 382 GOSUB700:IFA$=CHR$(13)THEN64 384 IFA$="[136]"THENS=(O+(8*C)):FORR=STOS+7:POKER,0:NEXT:GOTO364 385 IFA$="[135]"THENS=(O+(8*C)):FORR=STOS+7:POKER,255-PEEK(R):NEXT:GOTO364 387 IFA$="[133]"THENC=40:GOTO364 388 IFA$="[134]"THENC=80:GOTO364 390 IFA$="+"ORA$="-"THEN365 391 IFA$=""ANDFCTHENL=L-40:F=F-1:S=S-1:GOTO381 393 IFA$="[157]"ANDE<7THENL=L-2:E=E+2:GOTO381 394 IFA$=""ANDE>1THENL=L+2:E=E-2:GOTO381 395 IFA$="1"THEND=E1(E):CV=0:G=1 396 IFA$="2"THEND=E2(E):CV=4:G=1 398 IFA$="3"THEND=E3(E):CV=7:G=1 400 IFA$="4"THEND=E4(E):CV=3:G=1 402 IFG=1THENPOKES,(PEEK(S)AND(255-(2^E+2^(E-1))))ORD:GOSUB300:G=0 406 GOTO382 416 PRINT"[151]"SPC(220)"@ABCDEFGHIJKLMNO"SPC(24)"PQRSTUVWXYZ[\]^_ 418 [153][166]20)" !'#$%&'()*+,-./"[166]24)"0123456789:;<=>? 420 PRINTSPC(20)"[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207]"SPC(24)"[208][209][210][211][212][213][214][215][216][217][218][219][220][221][255][223] 422 [153][166]20)"CLOSEGETNEWTAB(TOFNSPC(THENNOTSTEP+-*/^AND"[166]24)"OR>=